home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis1015.d64 / v. diemen's land (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  25KB  |  778 lines
  1. 1 REM PUBLIC DOMAIN
  2. 2 POKE 657,128:POKE 650,255:G$="HALLO"
  3. 3 DIM E$(4),C$(5),WS$(4)
  4. 5 REM VAN DIEMENS'S LAND
  5. 6 REM SIMULATION 91'
  6. 7 REM VON PETER DIEHM 9/91
  7. 8 POKE 53280,0:POKE53281,0:PRINTCHR$(142)"[147]":GG=1:GOSUB 15
  8. 9 P=100:Y=100:CN=1870:GOTO 1050
  9. 10 REM UNTERPROGRAMM TASTE
  10. 11 PRINTSPC(30)"[154] TASTE "
  11. 12 GET F$:IFF$="" THEN 12
  12. 13 RETURN
  13. 15 REM UNTERPROGRAMM STAEDTE
  14. 16 C$(1)="HOBART":C$(2)="DEVON PORT":C$(3)="LAUNCESTON":C$(4)="BURNIE"
  15. 17 C$(5)="PORT LATTA":WS$(1)="SCHWEIZER":WS$(2)="ENGLISCHE":WS$(3)="DEUTSCHE"
  16. 18 WS$(4)="IRISCHER"
  17. 19 E$(1)="MAIN LAND":E$(2)="GROSS BRITANIEN"
  18. 20 E$(3)="EUROPAISCHES FESTLAND":E$(4)="KRON KOLONIEN"
  19. 21 V=53248:FORI=0TO62:READXX:POKE832+I,XX
  20. 22 NEXTI
  21. 25 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,0,192,0,0,224
  22. 26 DATA 255,255,240,255,255,248,255,255,248,255,255,248,255,255,248
  23. 29 DATA 255,255,240,0,0,224,0,0,192,0,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  24. 35 POKE 53269,0:POKE 2040,13:POKE V+43,0:POKEV+39,1
  25. 36 RETURN
  26. 40 REM RAHMEN
  27. 41 PRINT"[147]
  28. 42 [153]"(null)";:[129]I[178]1[164]37:[153]"USR";:[130]:[153]"(null)"
  29. 43 [129]I[178]1[164]20:[153]"FN";[163]38);"+":[130]
  30. 44 [153]"(null)";:[129]I[178]1[164]37:[153]"AND";:[130]:[153]"SQR":[153]"":[142]
  31. 45 [153]" ":[142]
  32. 50 [143] MAIN
  33. 51 [151] 53269,1:[153]"LOAD":GG[178]1:P[178]164:Y[178]49
  34. 52 [129]I[178]1[164]19:[153]"PRINT# WAIT-";:[130]:[153]"PRINT# "
  35. 53 [139] CN[179]1904 [167][153][166]5)" VAN DIEMENS'LAND JAHR"CN""
  36. 54 [139] CN[177]1904 [176] CN[178]1904[167][153][166]5)" TASMANIEN JAHR"CN""
  37. 55 [129]I[178]1[164]19:[153]"PRINT# WAIT-";:[130]:[153]"PRINT# "
  38. 56 [153][166]1)" HOPFEN"H" KG.";[163]20);"PAPIER"D" KG"
  39. 57 [153][166]1)" WOLLE "W" KG.";[163]20);"GELD  "A""
  40. 58 [153]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^
  41. 60 PRINT"[176][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][174]
  42. 61 [153]"PEEKFN                                   +PEEK
  43. 62 PRINT"[194][165]  -  EISENBAHN       -  UEBERSICHT [170][194]
  44. 63 [153]"PEEKFN  -  ROHSTOFFE       -  LAND/WALD  +PEEK
  45. 64 PRINT"[194][165]  -  ARBEITER        -  MONATSENDE [170][194]
  46. 65 [153]"PEEKFN  -  LOAD/SAVE                     +PEEK
  47. 66 PRINT"[194][165]                                   [170][194]
  48. 67 [153]"/(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQREXP
  49. 68 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
  50. 70 [151] V[170]1,P:[151]V[170]0,Y
  51. 71 [161] D$:[139]D$[178]"" [167] 71
  52. 73 [139] D$[178]"INPUT"[167] GG[178]GG[170]1
  53. 74 [139] D$[178]"DIM"[167] GG[178]GG[171]1
  54. 75 [139] D$[178]"READ"[167] 90
  55. 76 [139] GG[178]8 [167] GG[178]1
  56. 78 [139] GG[178]0 [167] GG[178]7
  57. 79 [139] GG[178]1 [167] P[178]164:Y[178]49
  58. 80 [139] GG[178]2 [167] P[178]171:Y[178]49
  59. 81 [139] GG[178]3 [167] P[178]178:Y[178]49
  60. 82 [139] GG[178]4 [167] P[178]186:Y[178]49
  61. 83 [139] GG[178]5 [167] P[178]164:Y[178]200
  62. 84 [139] GG[178]6 [167] P[178]171:Y[178]200
  63. 85 [139] GG[178]7 [167] P[178]178:Y[178]200
  64. 86 [137] 70
  65. 90 [145] GG [137] 200,400,700,100,300,790,1000
  66. 91 [137]70
  67. 100 [143] LOAD/SAVE
  68. 101 [153]"LOAD":GG[178]1:P[178]155:Y[178]50
  69. 102 [129]I[178]1[164]19:[153]"CLR WAIT-";:[130]:[153]"CLR ":G$[178]B$
  70. 103 [153][166]1)" SPIELSTAND...
  71. 104 PRINTSPC(1)" VAN DIEMEN'S LAND JAHR"CN"."
  72. 105 PRINTSPC(1)" [158] SPEICHERUNG [146]: "B$""
  73. 107 PRINT""
  74. 108 PRINT" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  75. 109 [153]"OR(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)^
  76. 110 PRINT"[194][165]                                   [170][194]
  77. 111 [153]"PEEKFN  - SPIELSTAND LADEN    - SPEICHERN+PEEK
  78. 112 PRINT"[194][165]                                   [170][194]
  79. 113 [153]"PEEKFN     F7=ZURUECK WAIT                   +PEEK
  80. 114 PRINT"[173][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][189]
  81. 115 [153]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP"
  82. 116 [151] V[170]1,P:[151]V[170]0,Y
  83. 117 [161] D$:[139]D$[178]"" [167] 117
  84. 118 [139] D$[178]"INPUT"[167] GG[178]GG[170]1
  85. 119 [139] D$[178]"LET" [167] 50
  86. 120 [139] D$[178]"DIM"[167] GG[178]GG[171]1
  87. 121 [139] D$[178]"READ"[167] 127
  88. 122 [139] GG[178]3 [167] GG[178]1
  89. 123 [139] GG[178]0 [167] GG[178]2
  90. 124 [139] GG[178]1 [167] P[178]155:Y[178]50
  91. 125 [139] GG[178]2 [167] P[178]155:Y[178]225
  92. 126 [137]116
  93. 127 [145] GG [137] 130,150
  94. 130 [143] LOAD
  95. 131 [151]53269,0
  96. 132 [129]I[178]1[164]19:[153]"CLR WAIT-";:[130]:[153]"CLR "
  97. 135 [133] " FILE WAIT NAME ";G$:G$[178]"(null)"[170]G$[170]",S,R
  98. 136 OPEN3,8,3,G$
  99. 137 INPUT#3,A,H,W,D,HA,HB,HC,HD,CN,WA,L,GV,S,UH,GE,W$,ZD,XV,B$,P,Y
  100. 140 CLOSE3
  101. 141 GOSUB10
  102. 142 GOTO 50
  103. 150 REM SAVE/LOAD
  104. 151 POKE53269,0
  105. 152 FORI=1TO19:PRINT"[156] [146]-";:NEXT:PRINT"[156] "
  106. 156 INPUT " FILE  NAME [146] ";G$:R$=CHR$(13):G$="[255]"+G$+",S,W"
  107. 158 OPEN3,8,3,G$
  108. 160 PRINT#3,A;R$;H;R$;W;R$;D;R$;HA;R$;HB;R$;HC;R$;HD;R$;CN;R$;WA;R$;L
  109. 161 PRINT#3,GV;R$;S;R$;UH;R$;GE;R$;W$;R$;ZD;R$;XV;R$;B$;R$;P;R$;Y
  110. 165 CLOSE3
  111. 168 GOSUB10
  112. 179 GOTO50
  113. 200 REM EISENBAHN
  114. 201 PRINT"[147]"
  115. 202 FORI=1TO19:PRINT"[158] [146]-";:NEXT:PRINT"[158] ":P=196:Y=49:GG=1
  116. 204 PRINTSPC(6)"  [158] [146]  [146]  [146]  EISENBAHN  [158] [146]  [146]  [146]
  117. 206 [129]I[178]1[164]19:[153]"SYS WAIT-";:[130]:[153]"SYS "
  118. 207 [153][166]1)" GELD"A"";[163]25);"PREIS 3000 $
  119. 208 PRINTSPC(1)" EISENBAHNVERBINDUNGEN:
  120. 210 [139] HA[178]1 [167][153][166]1)" HOBART - LAUNCESTON
  121. 211 IF HB=1 THENPRINTSPC(1)"  ''    - DEVON PORT
  122. 212 [139] HC[178]1 [167][153][166]1)"  ''    - BURNIE
  123. 213 IF HD=1 THENPRINTSPC(1)"  ''    - PORT LATTA
  124. 214 [153]""
  125. 220 [153]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^
  126. 222 PRINT"[176][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][174]
  127. 223 [153]"PEEKFN                                   +PEEK
  128. 224 PRINT"[194][165]  - STRECKE ANLEGEN     - ZURUECK  [170][194]
  129. 225 [153]"PEEKFN                                   +PEEK
  130. 226 PRINT"[194][165]                                   [170][194]
  131. 227 [153]"/(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQREXP
  132. 228 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]":POKE53269,1
  133. 229 POKE V+1,P:POKEV+0,Y
  134. 230 GET D$:IFD$="" THEN 230
  135. 231 IF D$="[133]"THEN GG=GG+1
  136. 232 IF D$="[134]"THEN GG=GG-1
  137. 233 IF D$="[135]"THEN 245
  138. 235 IF GG=3 THEN GG=1
  139. 236 IF GG=0 THEN GG=2
  140. 237 IF D$="[136]" THEN 50
  141. 238 IF GG=1 THEN P=196:Y=49
  142. 239 IF GG=2 THEN P=196:Y=225
  143. 240 GOTO 229
  144. 245 ON GG GOTO 250,50
  145. 250 PRINT"[147]":POKE 53269,0
  146. 252 FORI=1TO19:PRINT"[154] [146]-";:NEXT:PRINT"[154] "
  147. 253 PRINTSPC(1)" GELD"A"";TAB(25);"PREIS 3000 $
  148. 255 [153]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^
  149. 256 PRINT"[176][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][174]
  150. 257 [153]"PEEKFNEISENBAHNVERBINDUNGEN:             +PEEK
  151. 258 PRINT"[194][165]                                   [170][194]
  152. 259 [139] HB[178]0 [167][153]"PEEKFN  -1-  HOBART  -  DEVON PORT       +PEEK
  153. 261 PRINT"[194][165]                                   [170][194]
  154. 262 [139] HC[178]0 [167][153]"PEEKFN  -2-  HOBART  -  BU